home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
gnu
/
gcctest
/
tests05.zoo
/
twrseek.c
< prev
Wrap
C/C++ Source or Header
|
1993-03-02
|
954b
|
55 lines
#include <stdio.h>
int chk(got, expect, message)
long got, expect;
char *message;
{
if(got != expect)
{
fprintf(stderr, "Expecting %ld Got %ld (%s)\n", expect, got, message);
return 1;
}
return 0;
}
#define FILENAME "twrseek.tst"
main()
{
FILE *fp;
int status = 0;
long got;
#ifdef atarist
_binmode(1);
#endif
if(!(fp = fopen(FILENAME,"w+")))
{
perror(FILENAME);
exit(1);
}
got = fseek(fp,100L,0);
status |= chk(got, 0L, "fseek(fp, 100L, 0)");
fwrite("a",1,1,fp);
got = ftell(fp);
status |= chk(got, 101L, "ftell(fp)");
fseek(fp,200L,0);
fwrite("a",1,1,fp);
got = ftell(fp);
status |= chk(got, 201L, "ftell(fp) after fwrite");
fseek(fp,100L,0);
got = fgetc(fp);
status |= chk(got, (long)'a', "fgetc(fp)");
fseek(fp,150L,0);
got = fgetc(fp);
status |= chk(got, 0L, "fgetc(fp)@150");
fclose(fp);
unlink(FILENAME);
return status;
}